home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / amos / eaissu3b.lha / Source_Code / AK_Assigner.AMOS / AK_Assigner.amosSourceCode
AMOS Source Code  |  1995-12-30  |  2KB  |  64 lines
  1. ' AMOS Assigner V1 
  2. '
  3. ' Written in AMOS Proffessional by Andrew "Mushroom" Kellett.
  4. '
  5. ' If you wish to get in touch with me at Mushroom PD, or you would like
  6. ' more information on it, or Extreme AMOS, then you can write to me at 
  7. ' this address. I will reply to you in ASCII format on a disk unless you 
  8. ' tell me to do so otherwise : 
  9. '
  10. '                         Andrew "Mushroom" Kellett  
  11. '                                Mushroom PD 
  12. '                           32 Castleton Crescent
  13. '                                 Gamesley 
  14. '                                 Glossop
  15. '                                Derbyshire  
  16. '                                SK13  9TH 
  17. '                                 ENGLAND
  18. '
  19. ' No screen is ever opened, unless an error is genarated by an assign. 
  20. '
  21.  
  22. Request Wb 
  23. Amos To Back 
  24.  
  25. ' Because the program is going to be used in WB mode, we must make sure
  26. ' that all requesters are brought up on a WB screen. 
  27.  
  28. If Not Exist("S:Assign_List.ASC")
  29.    Amos To Front 
  30.    Screen Open 0,640,200,4,Hires : Paper 0 : Cls : Curs Off : Flash Off : Hide On 
  31.    Amos To Front : Centre "Assign Manager V1 - Error Report" : Print 
  32.    Centre "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" : Print : Print 
  33.    Centre "The needed file S:Assign_List.ASC could not be located, and no assigns" : Print 
  34.    Centre "have been made. Assigns can be made in a Word Processor using this syntax:" : Print : Print 
  35.    Centre "First you must enter the new assign name" : Print 
  36.    Centre "Followed by the path to it" : Print : Print 
  37.    Centre "Example:" : Print : Print 
  38.    Centre "Music:" : Print 
  39.    Centre "Work:Music/" : Print : Centre "Tools:" : Print : Centre "Workbench/Tools/" : Print : Print 
  40.    Centre "To finish the file, place the EOF on the last line, and hit the return button." : Print 
  41.    Print : Centre "Hit the left mouse button to leave the program"
  42.    
  43.    Repeat : K=Mouse Key : Until K=1 : End 
  44. End If 
  45.  
  46.  
  47. Open In 1,"S:Assign_List.ASC" : Reserve As Data 4,Lof(1) : Close : Bload "S:Assign_List.ASC",4
  48. Bsave "ram:Temp",Start(4) To Start(4)+Length(4) : Rem Copy the file to RAM.
  49.  
  50. ' The file in which all the assign data is stored to is stored in the S: 
  51. ' drawer of the boot disk, under the name
  52. '
  53. '        Assign_List.ASC 
  54. '
  55.  
  56. Open In 1,"Ram:Temp" : Set Input 10,-1
  57.  
  58. Repeat 
  59.    Line Input #1,A$
  60.    If A$="EOF" : End : End If 
  61.    Line Input #1,B$
  62.    
  63.    Assign A$ To B$ : Rem AMOSPro command only.
  64. Until False